Attribute VB_Name = "modFXRSGlobalVars"
'---------------------------------------------------------------------------------------
'Module     : modFXRSGlobalVars
'Date       : 03/17/2004
'Modified   : 10/22/2004 Added IPD Field vars, commented out DG field vars
'Author     : Chris Elwell
'Purpose    : Declare all global variables for FXRS input and output fields.
'           Also contains ClearGlobalVars for clearing all global variables.
'
' 2007-01-22, JFW, New setup and registry entry for TD Linehaul default value.
' 2007-12-01, JFW, Bombardier, IOR on Intl form.
'
'---------------------------------------------------------------------------------------

'FXRS Transaction field variables
Public g_str1 As String             'Field 1 - Transaction ID
Public g_str4 As String             'Field 4 - Shipper Company
Public g_str5 As String             'Field 5 - Shipper Address 1
Public g_str6 As String             'Field 6 - Shipper Address 2
Public g_str7 As String             'Field 7 - Shipper City
Public g_str8 As String             'Field 8 - Shipper State
Public g_str9 As String             'Field 9 - Shipper ZIP
Public g_str117 As String           'Field 117 - Shipper Country Code
Public g_str11 As String            'Field 11 - Recipient Company
Public g_str12 As String            'Field 12 - Recipient Contact
Public g_str13 As String            'Field 13 - Recipient Address 1
Public g_str14 As String            'Field 14 - Recipient Address 2
Public g_str15 As String            'Field 15 - Recipient City
Public g_str16 As String            'Field 16 - Recipient State
Public g_str17 As String            'Field 17 - Recipient ZIP
Public g_str18 As String            'Field 18 - Recipient Phone
Public g_str440 As String           'Field 440 - Residential Flag
Public g_str1145 As String          'Field 1145 - Recipient Destination Department Name
Public g_str20 As String            'Field 20 - Bill-To Acct#
Public g_str1670 As String          'Field 1670 - New Weight Field in FXRS0720
Public g_str23 As String            'Field 23 - Payment Type
Public g_str24 As String            'Field 24 - ShipDate
Public g_str25 As String            'Field 25 - References
Public g_str26 As String            'Field 26 - Declared Value
Public g_str32 As String            'Field 32 - Shipper Contact
Public g_str38 As String            'Field 38 - Department Notes
Public g_str50 As String            'Field 50 - Country Code
Public g_str57 As String            'Field 57 - Dim H
Public g_str58 As String            'Field 58 - Dim W
Public g_str59 As String            'Field 59 - Dim L
Public g_str116 As String           'Field 116 - # of Pkgs
Public g_str183 As String           'Field 183 - Shipper Phone
Public g_str1274 As String          'Field 1274 - Service Code
Public g_str1273 As String          'Field 1273 - Packaging Type
Public g_str3056 As String          'Field 3056 - Package P.O. Number
Public g_str3057 As String          'Field 3057 - Package Invoice Number
Public g_str1222 As String          'Field 1222 - PreAssign Trk#
Public g_str1221 As String          'Field 1221 - PreAssign Flag
Public g_str498 As String           'Field 498 -  Meter #
Public g_str1123 As String          'Field 1123 - Master Trk#
'---------------------------------------------------------------------------------------
'Alcohol Fields
Public g_str1332 As String          'Field 1332 - Alcohol Flag
Public g_str40 As String            'Field 40 - Alcohol Type
Public g_str41 As String            'Field 41 - Alcohol Packaging
Public g_str42 As String            'Field 42 - Alcohol Volume
Public g_str52 As String            'Field 52 - Alcohol Packages
'---------------------------------------------------------------------------------------
'COD Fields
Public g_str27 As String            'Field 27 - COD Flag
Public g_str53 As String            'Field 53 - COD Amount
Public g_str54 As String            'Field 54 - COD Cashiers Check/MO
Public g_str186 As String           'Field 186 - COD Add Freight Charges Flag
Public g_str439 As String           'Field 439 - COD Remit Payor
Public g_str1237 As String          'Field 1237 - COD Return Phone Number
Public g_str1238 As String          'Field 1238 - COD Return Company
Public g_str1240 As String          'Field 1240 - COD Return Addr1
Public g_str1241 As String          'Field 1241 - COD Return Addr2
Public g_str1242 As String          'Field 1242 - COD Return City
Public g_str1243 As String          'Field 1243 - COD Return State
Public g_str1244 As String          'Field 1244 - COD Return Zip
Public g_str3000 As String          'Field 3000 - COD Collection Type Ground
Public g_str3014 As String          'Field 3014 - COD ECOD Flag
'---------------------------------------------------------------------------------------
'Signature Release Fields
Public g_str51 As String            'Field 51 - Sig Rel Flag
Public g_str1118 As String          'Field 53 - Sig Rel #
'---------------------------------------------------------------------------------------
'Dry Ice Fields
Public g_str1268 As String          'Field 1268 - Dry Ice Flag
Public g_str1684 As String          'Field 1684 - Dry Ice Weight
'---------------------------------------------------------------------------------------
'HAL Fields
Public g_str1200 As String          'Field 1200 - Hold At Location Flag
Public g_str44 As String            'Field 44 - HAL Station Address
Public g_str46 As String            'Field 46 - HAL City
Public g_str47 As String            'Field 47 - HAL State
Public g_str48 As String            'Field 48 - HAL Postal Code
Public g_str49 As String            'Field 49 - HAL Phone Number
'---------------------------------------------------------------------------------------
'Satuday Delivery Flag
Public g_str1266 As String          'Field 1266 - Sat Del Flag
'---------------------------------------------------------------------------------------
'Signature Required Flag
Public g_str1208 As String          'Field 1208 - Signature Required
'---------------------------------------------------------------------------------------
'Ground/FHD Fields
Public g_str3008 As String          'Field 3008 - Auto POD
Public g_str3009 As String          'Field 3014 - AOD
Public g_str3018 As String          'Field 3018 - Non-Standard Packaging
'---------------------------------------------------------------------------------------
'FHD Fields
Public g_str3019 As String          'Field 3019 - FHD Signature Service
Public g_str3020 As String          'Field 3020 - FHD Special Service
Public g_str3023 As String          'Field 3023 - Del Date for Date Certain
Public g_str3024 As String          'Field 3024 - Recipient phone # Appt Del and Date Certain
'---------------------------------------------------------------------------------------
'Ship Alert/Delivery Notification Fields
Public g_str1201 As String          'Field 1201 - Shipper Email Address
Public g_str1202 As String          'Field 1202 - Recipient Email Address
Public g_str1204_1 As String        'Field 1204(1) - Other Email Address 1
Public g_str1204_2 As String        'Field 1204(2) - Other Email Address 2
Public g_str1204_3 As String        'Field 1204(3) - Other Email Address 3
Public g_str1206_1 As String        'Field 1206(1) - Other Ship Alert Flag 1
Public g_str1206_2 As String        'Field 1206(2) - Other Ship Alert Flag 2
Public g_str1206_3 As String        'Field 1206(3) - Other Ship Alert Flag 3
Public g_str1551_1 As String        'Field 1551(1) - Other Delivery Notification Flag 1
Public g_str1551_2 As String        'Field 1551(2) - Other Delivery Notification Flag 2
Public g_str1551_3 As String        'Field 1551(3) - Other Delivery Notification Flag 3
Public g_str1553 As String          'Field 1553 - Shipper Delivery Notification Flag
Public g_str1554 As String          'Field 1554 - Shipper Ship Alert Flag
Public g_str1556 As String          'Field 1556 - Recipient Delivery Notification Flag
Public g_str1557 As String          'Field 1557 - Recipient Ship Alert Flag
'---------------------------------------------------------------------------------------
'Meter and Label Variables
Public g_str10 As String            'Field 10 - Shipper Acct#
Public g_str187 As String           'Field 187 - Label format
Public g_str1282 As String          'Field 1282 - Label type
Public g_str537 As String           'Field 537 - Thermal Printer UNC/File Path
Public g_str538 As String           'Field 538 - CI Printer UNC
Public g_str1660 As String          'Field 1660 - FXRS Custom Label Flag
'---------------------------------------------------------------------------------------
'Intl field variables
Public g_str68 As String            'Field 68 - Currency Type
Public g_str70 As String            'Field 70 - Duty/Taxes Pay Type
Public g_str71 As String            'Field 71 - Duty/Taxes Acct #
Public g_str72 As String            'Field 72 - Terms of Sale
Public g_str73 As String            'Field 73 - Parties Related
Public g_str74 As String            'Field 74 - Country of Ultimate Destination
Public g_str75 As String            'Field 75 - Weight Type
Public g_str113 As String           'Field 113 - CI Flag
Public g_str118 As String           'Field 118 - IRS/EIN/VAT for CA to US
Public g_str119 As String           'Field 119 - Total Customs Value
Public g_str1455 As String          'Field 1455 - Customs Value Mask
Public g_str190 As String           'Field 190 - Document Shipment flag
Public g_str532 As String           'Field 532 - CI Freight Charge
Public g_str533 As String           'Field 533 - CI Insurance Charge
Public g_str534 As String           'Field 534 - CI Other Charge
Public g_str1116 As String          'Field 1116 - DIM Units
Public g_str1349 As String          'Field 1349 - AES Filing Status
Public g_str1139 As String          'Field 1139 - Sender IRS/EIN Number
Public g_str1352 As String          'Field 1352 - Sender ID Type
Public g_str1357 As String          'Field 1357 - CI Other Charge Type
Public g_str1358 As String          'Field 1358 - FTSR Exemption Number
Public g_str413 As String           'Field 413 - NAFTA Flag
Public g_str1090 As String          'Field 1090 - Rate Currency
' 2007-01-22, JFW, TD Linehaul default value, see also frmTDAdd
Public g_str1484 As String          'Field 1484 - FedEx Linehaul for TD master
'---------------------------------------------------------------------------------------
'CA Intl field variables
Public g_str1651 As String          'Field 1651 - B13A Filing Options
Public g_str1652 As String          'Field 1652 - Export Statement Data
Public g_str1653 As String          'Field 1653 - Export Permit #
'---------------------------------------------------------------------------------------
'Intl field variables - multiple occurrence
Public g_str77 As String            'Field 77 - Total Commodity Weight
Public g_str79 As String            'Field 79 - Description
Public g_str80 As String            'Field 80 - Country if Manu
Public g_str81 As String            'Field 81 - Harmonized Code
Public g_str82 As String            'Field 82 - Number of Units
Public g_str83 As String            'Field 83 - Export License
Public g_str84 As String            'Field 84 - Export License Expiration Date
Public g_str120 As String           'Field 120 - Marks and Numbers
Public g_str414 As String           'Field 414 - Unit of Measure
Public g_str418_1 As String         'Field 418 - CI Comment - up to 3 occurrences
Public g_str418_2 As String         'Field 418 - CI Comment - up to 3 occurrences
Public g_str418_3 As String         'Field 418 - CI Comment - up to 3 occurrences
Public g_str1030 As String          'Field 1030 - Unit Value
Public g_str1275 As String          'Field 1275 - Part Number
'---------------------------------------------------------------------------------------
'Intl Broker Select field variables
Public g_str66 As String            'Field 66 - Broker Name
Public g_str67 As String            'Field 67 - Broker Phone
Public g_str1174 As String          'Field 1174 - BSO Flag
Public g_str1179 As String          'Field 1179 - Broker Account #
Public g_str1180 As String          'Field 1180 - Broker Company
Public g_str1181 As String          'Field 1181 - Broker Addr1
Public g_str1182 As String          'Field 1182 - Broker Addr2
Public g_str1183 As String          'Field 1183 - Broker City
Public g_str1184 As String          'Field 1184 - Broker State
Public g_str1185 As String          'Field 1185 - Broker Zip
Public g_str1186 As String          'Field 1186 - Broker Country
Public g_str1187 As String          'Field 1187 - Broker ID
Public g_str1343 As String          'Field 1343 - Broker Email
Public g_str1344 As String          'Field 1344 - Broker Fax #
Public g_str1345 As String          'Field 1345 - Broker Pager #
'---------------------------------------------------------------------------------------
' 2007-12-14, JFW, CI IOR
'Intl IOR field variables
Public g_str168 As String            'Field 168 - IOR Business code
Public g_str169 As String            'Field 169 - IOR Country
Public g_str170 As String          'Field 170 - IOR Contact name
Public g_str171 As String          'Field 171 - IOR Company
Public g_str172 As String          'Field 172 - IOR Addr1
Public g_str173 As String          'Field 173 - IOR Addr2
Public g_str174 As String          'Field 174 - IOR City
Public g_str175 As String          'Field 175 - IOR State
Public g_str176 As String          'Field 176 - IOR Zip
Public g_str177 As String          'Field 177 - IOR Account
Public g_str178 As String          'Field 178 - IOR Phone
Public g_str179 As String          'Field 179 - IOR Account #
Public g_str180 As String          'Field 180 - IOR Tax ID
Public g_str181 As String          'Field 181 - IOR Broker name
Public g_str182 As String          'Field 182 - IOR Borker Phone
'---------------------------------------------------------------------------------------
'Rate/Route Flag
Public g_str1234 As String          'Field 1234 - Rate/Route Flag
'---------------------------------------------------------------------------------------
''DG/Haz Mat field variables
'Public g_str446 As String           'Field 446 - DG Technical Name
'Public g_str451 As String           'Field 451 - DG UN #
'Public g_str456 As String           'Field 456 - DG # of Units
'Public g_str466 As String           'Field 466 - DG Quantity
'Public g_str471 As String           'Field 471 - DG Unit of Measure
'Public g_str483 As String           'Field 483 - DG Authorization
'Public g_str484 As String           'Field 484 - DG Emergency Phone #
'Public g_str485 As String           'Field 485 - DG Title of Signatory
'Public g_str486 As String           'Field 486 - DG Addl Handling Info
'Public g_str488 As String           'Field 488 - DG Cargo Aircraft Only
'Public g_str489 As String           'Field 489 - DG Packing Group
'Public g_str492 As String           'Field 492 - DG Class
'Public g_str1331 As String          'Field 1331 - DG Flag
'Public g_str1900 As String          'Field 1900 - DG Regulations Indicator
'Public g_str1901 As String          'Field 1901 - DG Reportable Quantity Flag
'Public g_str1902 As String          'Field 1902 - DG Subsidiary Risk
'Public g_str1903 As String          'Field 1903 - DG Proper Shipping Name
'Public g_str1904 As String          'Field 1904 - DG A1, A2, A51, A109 Flag
'Public g_str1918 As String          'Field 1918 - DG Name of Signatory
'Public g_str1919 As String          'Field 1919 - DG Percentage Number
'Public g_str1922 As String          'Field 1922 - DG Place of Signatory
'Public g_str1923 As String          'Field 1923 - DG All Packed in One Flag
'Public g_str1924 As String          'Field 1924 - DG Overpack Flag
'Public g_str1925 As String          'Field 1925 - DG Number of Overpacks
'Public g_str1926 As String          'Field 1926 - DG Consignment of Overpacks Flag
'Public g_str1927 As String          'Field 1927 - DG Packing Type of Outer Container
'Public g_str1928 As String          'Field 1928 - DG Consignment of All Packed in One Flag
'Public g_str1929 As String          'Field 1929 - DG Good All Packed in One Quantity
'Public g_str1932 As String          'Field 1932 - DG Commodity Count
'Public g_str461 As String           'Field 456 - DG Packing Type
'Public g_str476 As String           'Field 466 - DG Packing Instructions
'Public g_str1905 As String          'Field 1905 - DG Radionuclide
'Public g_str1906 As String          'Field 1906 - DG Activity
'Public g_str1907 As String          'Field 1907 - DG Activity Measurement
'Public g_str1908 As String          'Field 1908 - DG Radioactive Packaging Type
'Public g_str1909 As String          'Field 1909 - DG Transport Index
'Public g_str1910 As String          'Field 1910 - DG Radioactive Label Type
'Public g_str1911 As String          'Field 1911 - DG Surface Reading
'Public g_str1912 As String          'Field 1912 - DG Package DIM Length
'Public g_str1913 As String          'Field 1913 - DG Package DIM Width
'Public g_str1914 As String          'Field 1914 - DG Package DIM Height
'Public g_str1915 As String          'Field 1915 - DG DIM Units
'Public g_str1916 As String          'Field 1916 - DG Physical Form
'Public g_str1917 As String          'Field 1917 - DG Chemical Form/Formula
'Public g_str1920 As String          'Field 1920 - DG Responsible Party
'Public g_str1921 As String          'Field 1921 - DG Infectious Substance Phone #
'Public g_str1931 As String          'Field 1931 - DG A81 Indicator
'---------------------------------------------------------------------------------------
'Alternate Return Address field variables
Public g_str1586 As String          'Field 1586 - Print Alt Return Address flag
Public g_str1485 As String          'Field 1485 - Alt Return Contact
Public g_str1486 As String          'Field 1486 - Alt Return Company
Public g_str1487 As String          'Field 1487 - Alt Return Addr 1
Public g_str1488 As String          'Field 1488 - Alt Return Addr 2
Public g_str1489 As String          'Field 1489 - Alt Return City
Public g_str1490 As String          'Field 1490 - Alt Return State
Public g_str1491 As String          'Field 1491 - Alt Return ZIP
Public g_str1492 As String          'Field 1492 - Alt Return Phone #
Public g_str1585 As String          'Field 1585 - Alt Return Country
'---------------------------------------------------------------------------------------
'Custom Doc-Tab field variables
Public g_str581 As String           'Field 581 - Custom Doc-Tab Field 1
Public g_str582 As String           'Field 582 - Custom Doc-Tab Field 2
Public g_str583 As String           'Field 583 - Custom Doc-Tab Field 3
Public g_str584 As String           'Field 584 - Custom Doc-Tab Field 4
Public g_str585 As String           'Field 585 - Custom Doc-Tab Field 5
Public g_str586 As String           'Field 586 - Custom Doc-Tab Field 6
Public g_str587 As String           'Field 587 - Custom Doc-Tab Field 7
Public g_str588 As String           'Field 588 - Custom Doc-Tab Field 8
Public g_str589 As String           'Field 589 - Custom Doc-Tab Field 9
Public g_str590 As String           'Field 590 - Custom Doc-Tab Field 10
Public g_str591 As String           'Field 591 - Custom Doc-Tab Field 11
Public g_str592 As String           'Field 592 - Custom Doc-Tab Field 12
'---------------------------------------------------------------------------------------
'IPD field variables
Public g_str1297 As String          'Field 1297 - IPD Cust Inv #
Public g_str1355 As String          'Field 1355 - IOR Facility Code
Public g_str1592 As String          'Field 1592 - flag?
'---------------------------------------------------------------------------------------
'FXRS Reply field variables
Public g_str2 As String             'Field 2 - Error code
Public g_str3 As String             'Field 3 - Error text
Public g_str1125 As String          'Field 1125 - Returned on Rating errors
Public g_str560 As String           'Field 560 - Returned on Ground Rating errors
Public g_str28 As String            'Field 28 - COD Return Tracking #
Public g_str29 As String            'Field 29 - Tracking #
Public g_str30 As String            'Field 30 - URSA Routing Code
Public g_str33 As String            'Field 33 - Service Commit Code
Public g_str34 As String            'Field 34 - Gross Charge
Public g_str35 As String            'Field 35 - Total Surcharge
Public g_str36 As String            'Field 36 - Total Discount
Public g_str37 As String            'Field 37 - Net Charge
Public g_str1599 As String            'Field 1599 - Total Charge

' 2006-10-05, JFW, Accumulate rate quote for TD MPS
Public g_dbl37TDMPS As Double       'Field 37 - Net Charge for TD MPS
' 2007-01-22, JFW, Total weight of TD MPS
Public g_dbl60TDMPS As Double

Public g_str60 As String            'Field 60 - Billed Wgt
Public g_str65 As String            'Field 65 - ASTRA Barcode Data
Public g_str188 As String           'Field 188 - Label buffer
Public g_str194 As String           'Field 194 - Delivery Day
Public g_str409 As String           'Field 409 - Delivery By Date
Public g_str411 As String           'Field 411 - COD Return Buffer
Public g_str552 As String           'Field 552 - Revenue Barcode
Public g_str553 As String           'Field 553 - Address Barcode
Public g_str3058 As String          'Field 3058 - Time in Transit
Public g_str3063 As String          'Field 3063 - "96" Code 128 Barcode String
Public g_str3064 As String          'Field 3064 - PDF-417 Barcode String
Public g_str3065 As String          'Field 3065 - Zipcode Barcode String
Public g_str3073 As String          'Field 3073 - Ground/FHD Service Code
'

'---------------------------------------------------------------------------------------
' Procedure : ClearGlobalVars()
' DateTime  : 2/18/2004
' Purpose   : Clears all global variables except those noted below.
'---------------------------------------------------------------------------------------
'
Public Sub ClearGlobalVars()

    g_str1 = ""
    g_str11 = ""
    g_str12 = ""
    g_str13 = ""
    g_str14 = ""
    g_str15 = ""
    g_str16 = ""
    g_str17 = ""
    g_str18 = ""
    g_str20 = ""
    g_str1222 = ""
    g_str1670 = ""
    g_str23 = ""
    g_str24 = ""
    g_str25 = ""
    g_str26 = ""
    g_str38 = ""
    g_str50 = ""
    g_str57 = ""
    g_str58 = ""
    g_str59 = ""
    g_str116 = ""
    g_str440 = ""
    g_str1145 = ""
    g_str1274 = ""
    g_str1273 = ""
    g_str3056 = ""
    g_str3057 = ""
    g_str1222 = ""
    g_str1123 = ""
    '---------------------------------------------------------------------------------------
    'Alcohol Fields
    g_str1332 = ""
    g_str40 = ""
    g_str41 = ""
    g_str42 = ""
    g_str52 = ""
    '---------------------------------------------------------------------------------------
    'COD Fields
    g_str27 = ""
    g_str53 = ""
    g_str54 = ""
    g_str186 = ""
    g_str439 = ""
    g_str1237 = ""
    g_str1238 = ""
    g_str1240 = ""
    g_str1241 = ""
    g_str1242 = ""
    g_str1243 = ""
    g_str1244 = ""
    g_str3000 = ""
    g_str3014 = ""
    '---------------------------------------------------------------------------------------
    'Signature Release Fields
    g_str51 = ""
    g_str1118 = ""
    '---------------------------------------------------------------------------------------
    'Dry Ice Fields
    g_str1268 = ""
    g_str1684 = ""
    '---------------------------------------------------------------------------------------
    'HAL Fields
    g_str1200 = ""
    g_str44 = ""
    g_str46 = ""
    g_str47 = ""
    g_str48 = ""
    g_str49 = ""
    '---------------------------------------------------------------------------------------
    'Satuday Delivery Field
    g_str1266 = ""
    '---------------------------------------------------------------------------------------
    'Signature Required Flag
    g_str1208 = ""
    '---------------------------------------------------------------------------------------
    'Ground/FHD Fields
    g_str3008 = ""
    g_str3009 = ""
    g_str3018 = ""
    '---------------------------------------------------------------------------------------
    'FHD Fields
    g_str3019 = ""
    g_str3020 = ""
    g_str3023 = ""
    g_str3024 = ""
    '---------------------------------------------------------------------------------------
    'Ship Alert/Delivery Notification Fields
    g_str1201 = ""
    g_str1202 = ""
    g_str1204_1 = ""
    g_str1204_2 = ""
    g_str1204_3 = ""
    g_str1206_1 = ""
    g_str1206_2 = ""
    g_str1206_3 = ""
    g_str1551_1 = ""
    g_str1551_2 = ""
    g_str1551_3 = ""
    g_str1553 = ""
    g_str1554 = ""
    g_str1556 = ""
    g_str1557 = ""
    '---------------------------------------------------------------------------------------
    'Intl field variables
    g_str68 = ""
    g_str70 = ""
    g_str71 = ""
    g_str72 = ""
    g_str73 = ""
    g_str74 = ""
    g_str75 = ""
    g_str118 = ""
    g_str119 = ""
    g_str1455 = ""
    g_str190 = ""
    g_str532 = ""
    g_str533 = ""
    g_str534 = ""
    g_str1116 = ""
    g_str1357 = ""
    g_str1358 = ""
    g_str413 = ""
    g_str1090 = ""
    g_str1651 = ""
    g_str1652 = ""
    '---------------------------------------------------------------------------------------
    'Intl field variables - multiple occurrence
    g_str77 = ""
    g_str79 = ""
    g_str80 = ""
    g_str81 = ""
    g_str82 = ""
    g_str83 = ""
    g_str84 = ""
    g_str120 = ""
    g_str414 = ""
    g_str418_1 = ""
    g_str418_2 = ""
    g_str418_3 = ""
    g_str1030 = ""
    g_str1275 = ""
    '---------------------------------------------------------------------------------------
    'Intl Broker Select field variables
    g_str66 = ""
    g_str67 = ""
    g_str1174 = ""
    g_str1179 = ""
    g_str1180 = ""
    g_str1181 = ""
    g_str1182 = ""
    g_str1183 = ""
    g_str1184 = ""
    g_str1185 = ""
    g_str1186 = ""
    g_str1187 = ""
    g_str1343 = ""
    g_str1344 = ""
    g_str1345 = ""
    '---------------------------------------------------------------------------------------
    'Intl IOR field variables
    g_str168 = ""         'Field 168 - IOR Business code
    g_str169 = ""         'Field 169 - IOR Country
    g_str170 = ""         'Field 170 - IOR Contact name
    g_str171 = ""         'Field 171 - IOR Company
    g_str172 = ""         'Field 172 - IOR Addr1
    g_str173 = ""         'Field 173 - IOR Addr2
    g_str174 = ""         'Field 174 - IOR City
    g_str175 = ""         'Field 175 - IOR State
    g_str176 = ""         'Field 176 - IOR Zip
    g_str177 = ""         'Field 177 - IOR Account
    g_str178 = ""         'Field 178 - IOR Phone
    g_str179 = ""         'Field 179 - IOR Account #
    g_str180 = ""         'Field 180 - IOR Tax ID
    g_str181 = ""         'Field 181 - IOR Broker name
    g_str182 = ""         'Field 182 - IOR Borker Phone
    '---------------------------------------------------------------------------------------
    'Rate/Route Flag
    g_str1234 = ""
'    '---------------------------------------------------------------------------------------
'    'DG/Haz Mat field variables
'     g_str446 = ""           'Field 446 - DG Technical Name
'     g_str451 = ""           'Field 451 - DG UN #
'     g_str456 = ""           'Field 456 - DG # of Units
'     g_str466 = ""           'Field 466 - DG Quantity
'     g_str471 = ""           'Field 471 - DG Unit of Measure
'     g_str483 = ""           'Field 483 - DG Authorization
'     g_str484 = ""           'Field 484 - DG Emergency Phone #
'     g_str485 = ""           'Field 485 - DG Title of Signatory
'     g_str486 = ""           'Field 486 - DG Addl Handling Info
'     g_str488 = ""           'Field 488 - DG Cargo Aircraft Only
'     g_str489 = ""           'Field 489 - DG Packing Group
'     g_str492 = ""           'Field 492 - DG Class
'     g_str1331 = ""          'Field 1331 - DG Flag
'     g_str1900 = ""          'Field 1900 - DG Regulations Indicator
'     g_str1901 = ""          'Field 1901 - DG Reportable Quantity Flag
'     g_str1902 = ""          'Field 1902 - DG Subsidiary Risk
'     g_str1903 = ""          'Field 1903 - DG Proper Shipping Name
'     g_str1904 = ""          'Field 1904 - DG A1, A2, A51, A109 Flag
'     g_str1918 = ""          'Field 1918 - DG Name of Signatory
'     g_str1919 = ""          'Field 1919 - DG Percentage Number
'     g_str1922 = ""          'Field 1922 - DG Place of Signatory
'     g_str1923 = ""          'Field 1923 - DG All Packed in One Flag
'     g_str1924 = ""          'Field 1924 - DG Overpack Flag
'     g_str1925 = ""          'Field 1925 - DG Number of Overpacks
'     g_str1926 = ""          'Field 1926 - DG Consignment of Overpacks Flag
'     g_str1927 = ""          'Field 1927 - DG Packing Type of Outer Container
'     g_str1928 = ""          'Field 1928 - DG Consignment of All Packed in One Flag
'     g_str1929 = ""          'Field 1929 - DG Good All Packed in One Quantity
'     g_str1932 = ""          'Field 1932 - DG Commodity Count
'     g_str461 = ""           'Field 456 - DG Packing Type
'     g_str476 = ""           'Field 466 - DG Packing Instructions
'     g_str1905 = ""          'Field 1905 - DG Radionuclide
'     g_str1906 = ""          'Field 1906 - DG Activity
'     g_str1907 = ""          'Field 1907 - DG Activity Measurement
'     g_str1908 = ""          'Field 1908 - DG Radioactive Packaging Type
'     g_str1909 = ""          'Field 1909 - DG Transport Index
'     g_str1910 = ""          'Field 1910 - DG Radioactive Label Type
'     g_str1911 = ""          'Field 1911 - DG Surface Reading
'     g_str1912 = ""          'Field 1912 - DG Package DIM Length
'     g_str1913 = ""          'Field 1913 - DG Package DIM Width
'     g_str1914 = ""          'Field 1914 - DG Package DIM Height
'     g_str1915 = ""          'Field 1915 - DG DIM Units
'     g_str1916 = ""          'Field 1916 - DG Physical Form
'     g_str1917 = ""          'Field 1917 - DG Chemical Form/Formula
'     g_str1920 = ""          'Field 1920 - DG Responsible Party
'     g_str1921 = ""          'Field 1921 - DG Infectious Substance Phone #
'     g_str1931 = ""          'Field 1931 - DG A81 Indicator
    '---------------------------------------------------------------------------------------
    'Custom Doc-Tab field variables
    g_str581 = ""           'Field 581 - Custom Doc-Tab Field 1
    g_str582 = ""           'Field 582 - Custom Doc-Tab Field 2
    g_str583 = ""           'Field 583 - Custom Doc-Tab Field 3
    g_str584 = ""           'Field 584 - Custom Doc-Tab Field 4
    g_str585 = ""           'Field 585 - Custom Doc-Tab Field 5
    g_str586 = ""           'Field 586 - Custom Doc-Tab Field 6
    g_str587 = ""           'Field 587 - Custom Doc-Tab Field 7
    g_str588 = ""           'Field 588 - Custom Doc-Tab Field 8
    g_str589 = ""           'Field 589 - Custom Doc-Tab Field 9
    g_str590 = ""           'Field 590 - Custom Doc-Tab Field 10
    g_str591 = ""           'Field 591 - Custom Doc-Tab Field 11
    g_str592 = ""           'Field 592 - Custom Doc-Tab Field 12
    '---------------------------------------------------------------------------------------
    'IPD field variables
    g_str1297 = ""           'Field 1297 - IPD Cust Inv #
    g_str1355 = ""           'Field 1355 - IOR Facility Code
    'g_str1592 = ""           'Field 1592 -
End Sub
    
    
